home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / cg / chartfont.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-16  |  2KB  |  80 lines
  1. /* ChartFont.rexx -- Make An Alt Character Chart. */
  2. /* By Bob Caron © 1994 NewTek, Inc.               */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. location=REQ_file("Choose a postscript font","","toaster:PSFonts")
  7.  
  8. if right(location,1)="/" && right(location,1)=":" then do
  9.    call REQ_TELL("You have to choose a font.")
  10.    call REMLIB(CG_AREXX)
  11.    exit
  12.    end
  13.  
  14. if exists(location)=0 then do
  15.    call REQ_TELL("Error... I Can't Load THAT!")
  16.    call REMLIB(CG_AREXX)
  17.    exit
  18.    end
  19.  
  20. if loadfont(location,40)=0 then do
  21.    call req_tell("Error Loading:",location,"[In size:"||size||"]")
  22.    call remlib(CGAREXX)
  23.    end
  24.  
  25. page = GET_PAGE()
  26.    call SET_PAGE(NEXT)
  27.    if page_is_blank() then do
  28.        call SET_PAGE(TYPE,Scroll)
  29.        call GenChart()
  30.        end
  31.    else do
  32.       call KILLPAGE(page)
  33.       call SET_PAGE(TYPE,Scroll)
  34.       if page_is_blank() then
  35.          call GenChart()
  36.       end
  37.    page = GET_PAGE()
  38. exit
  39.  
  40. GenChart: /* This is an ugly method... But... I dont Care! :P */
  41.  
  42. call makeline()
  43. call set_line(FIRST)
  44. call makeline("Alt Chart:")
  45. call pickline()
  46. call set_line(JUST,Center)
  47. call makeline()
  48.  
  49. call makeline("ALT-1=¹  ALT-2=²  ALT-3=³")
  50. call makeline("ALT-4=¢  ALT-5=¢  ALT-6=½")
  51. call makeline("ALT-7=¾  ALT-8=·  ALT-9=«")
  52. call makeline("ALT-0=»")
  53. call makeline()
  54.  
  55. call makeline("ALT-a=æ  ALT-b=º  ALT-c=ç")
  56. call makeline("ALT-d=ð  ALT-e=©  ALT-i=¡")
  57. call makeline("ALT-l=£  ALT-n=­  ALT-o=ø")
  58. call makeline("ALT-p=¶  ALT-q=å  ALT-r=®")
  59. call makeline("ALT-s=ß  ALT-t=þ  ALT-u=µ")
  60. call makeline("ALT-v=ª  ALT-w=°  ALT-x=×")
  61. call makeline("ALT-y=¤  ALT-z=±")
  62. call makeline()
  63. call makeline("ALT-A=Æ  ALT-B=º  ALT-C=Ç")
  64. call makeline("ALT-D=Р ALT-E=©  ALT-I=¦")
  65. call makeline("ALT-L=£  ALT-M=¿  ALT-N=¯")
  66. call makeline("ALT-O=Ø  ALT-P=¶  ALT-Q=Å")
  67. call makeline("ALT-R=®  ALT-S=§  ALT-T=Þ")
  68. call makeline("ALT-U=µ  ALT-V=ª  ALT-W=°")
  69. call makeline("ALT-X=÷  ALT-Y=¥  ALT-Z=¬")
  70.  
  71. return
  72.  
  73. page_is_blank:
  74.   page_size=GET_PAGE(SIZE)
  75.   line_size=GET_LINE(SIZE)
  76.   if (page_size = 0 | page_size = 1) & line_size = 0 then
  77.      return 1
  78.   else
  79.      return 0
  80.